home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe103.dms / pe103.adf / MMM / MY_MUSIC_MACHINE.AMOS / MY_MUSIC_MACHINE.amosSourceCode < prev    next >
AMOS Source Code  |  1989-08-11  |  5KB  |  174 lines
  1. Screen Open 0,320,256,16,Lowres : Cls 0 : Flash Off 
  2. Load Iff "mmm/mmintro"
  3. Clear Key : Wait Key 
  4. Load Iff "MMM/mainscreen" : Pen 1 : Paper 0
  5. Limit Mouse 130,50 To 440,290
  6. Reserve Zone 12
  7. Set Zone 1,5,5 To 135,20
  8. Set Zone 2,70,5 To 310,20
  9. Set Zone 3,25,45 To 80,80
  10. Set Zone 4,80,45 To 155,80
  11. Set Zone 5,156,45 To 225,80
  12. Set Zone 6,235,45 To 300,80
  13. Set Zone 7,70,220 To 155,245
  14. Set Zone 8,161,220 To 250,245
  15. Set Zone 9,115,92 To 135,105
  16. Set Zone 10,175,92 To 195,105
  17. Set Zone 11,260,225 To 300,240
  18. Set Zone 12,270,90 To 300,105
  19. A=1 : T=15 : IB=1
  20. Locate 17,14 : Print T
  21. Get Bob 1,22,45 To 83,80
  22. Get Bob 2,84,45 To 152,80
  23. Get Bob 3,156,45 To 222,80
  24. Get Bob 4,235,45 To 300,80
  25. On Error Goto SUGAR
  26. MAIN:
  27. Bob 1,125,130,IB
  28. Tempo T
  29. Wait 30
  30. Repeat 
  31. If Key State(49) Then Sam Play 2,A,4996 : Gosub W
  32. If Key State(50) Then Sam Play 2,A,5613 : Gosub W
  33. If Key State(51) Then Sam Play 2,A,6327 : Gosub W
  34. If Key State(52) Then Sam Play 2,A,6758 : Gosub W
  35. If Key State(53) Then Sam Play 2,A,7580 : Gosub W
  36. If Key State(54) Then Sam Play 2,A,8481 : Gosub W
  37. If Key State(55) Then Sam Play 2,A,9486 : Gosub W
  38. If Key State(56) Then Sam Play 2,A,10063 : Gosub W
  39. If Key State(57) Then Sam Play 2,A,11415 : Gosub W
  40. Until Mouse Click
  41. MZ=Hzone(X Mouse,Y Mouse)
  42. If MZ=1 Then Gosub LTUNE
  43. If MZ=2 Then Gosub LBEAT
  44. If MZ=3 Then A=1 : IB=1
  45. If MZ=4 Then A=2 : IB=2
  46. If MZ=5 Then A=3 : IB=3
  47. If MZ=6 Then A=4 : IB=4
  48. If MZ=7 Then Voice 9 : Music 1
  49. If MZ=8 Then Music Off 
  50. If MZ=10 Then Inc T : Locate 17,14 : Print T;" " : If T=24 Then T=23
  51. If MZ=9 Then Dec T : Locate 17,14 : Print T;" " : If T=1 Then T=2
  52. If MZ=11 Then Gosub NOMORE
  53. If MZ=12 Then Gosub HELP
  54. Gosub MAIN
  55. LTUNE:
  56. Clear Key 
  57. F$=Fsel$("MMM/TUNE/*.abk","","LOAD A TUNE....GROOOVY")
  58. If F$="" Then Gosub MAIN
  59. Load F$
  60. Gosub MAIN
  61. LBEAT:
  62. Clear Key 
  63. F$=Fsel$("MMM/BEAT/*.abk","","LOAD A BEAT MAN  !  !")
  64. If F$="" Then Gosub MAIN
  65. Load F$
  66. Gosub MAIN
  67. W:
  68. Wait 10
  69. Return 
  70. NOMORE:
  71. Screen Open 2,320,10,16,Lowres : Curs Off : Cls 6 : Flash Off : Paper 6
  72. Centre "ARE YOU SURE YOU WANT TO QUIT?   Y/N"
  73. Channel 1 To Screen Display 2
  74. Amal 1,"M 0,100,50"
  75. Amal On 
  76. Wait 50
  77. 1
  78. Clear Key : Wait Key 
  79. If Key State(21) Then Screen Close 2 : Run "menu.amos"
  80. If Key State(54) Then Screen Close 2 : Gosub MAIN
  81. Goto 1
  82. SUGAR:
  83. Screen Open 1,320,10,16,Lowres : Curs Off : Cls 6 : Flash Off : Paper 6
  84. Centre "OH DEAR I CANT DO THAT..IS IT LOADED?"
  85. Channel 1 To Screen Display 1
  86. Amal 1,"M 0,100,50"
  87. Amal On 
  88. Wait 200
  89. Amal 1,"M 0,-130,50"
  90. Amal On 
  91. Wait 51
  92. Screen Close 1
  93. Resume Next 
  94. HELP:
  95. Music Off 
  96. Screen Open 3,320,50,16,Lowres : Cls 8 : Curs Off 
  97. Wait Vbl 
  98. Paper 8 : Pen 1
  99. Print ""
  100. Centre "HELP"
  101. Pen 3
  102. Set Talk ,,,130
  103. Say "ok."
  104. Say "here you see a gray box."
  105. Channel 1 To Screen Display 3
  106. Amal 1,"M 0,13,10" : Amal On : Wait 11
  107. Say "look above the gray box."
  108. Home 
  109. Print "       ^ ^"
  110. Say "if you click on this you load a tune."
  111. Wait 50 : Home 
  112. Print "                          ^ ^"
  113. Say "if you click on this you load a drum beat."
  114. Wait 50
  115. Amal 1,"M 0,60,40" : Amal On : Wait 51
  116. Say "here we have your instrorments."
  117. Home 
  118. Print "    ^ ^                      "
  119. Say " click on this to play a peeano."
  120. Home 
  121. Print "              ^ ^"
  122. Say "           this plays a gee tar."
  123. Home 
  124. Print "                       ^ ^"
  125. Say "                this a drum kit."
  126. Home 
  127. Print "                                ^ ^"
  128. Say "         and this a spacey sound."
  129. Wait 50
  130. Home 
  131. Print "                                   "
  132. Amal 1,"M 0,30,20" : Amal On : Wait 21
  133. Home 
  134. Print "                  ^ ^"
  135. Say "              this word is tempo."
  136. Say " it means the speed of your tune."
  137. Wait 30
  138. Say "   ahrow down makes it go slower."
  139. Say "     ahrow up makes it go faster."
  140. Home 
  141. Print "                     "
  142. Amal 1,"M 0,60,30" : Amal On : Wait 31
  143. Home 
  144. Print "                  ^ ^"
  145. Say "this is the instrorment you are playing."
  146. Wait 50
  147. Home : Print "                       "
  148. Amal 1,"M 0,75,40" : Amal On : Wait 41
  149. Home 
  150. Print "           ^ ^"
  151. Say "this makes your tune or beat go."
  152. Home 
  153. Wait 50
  154. Print "                        ^ ^"
  155. Say "             this makes it stop."
  156. Wait 50
  157. Home 
  158. Print "                                  ^ ^"
  159. Say "    and this stops this program."
  160. Cls 
  161. Wait 50
  162. Amal 1,"M 0,-100,40" : Amal On : Wait 41
  163. Cls 
  164. Print ""
  165. Centre " Z X C V B N M < "
  166. Say "if you look at your keyboard you will se these letters."
  167. Wait 50
  168. Say "                    push them to play your instrorment."
  169. Wait 150
  170. Screen Close 3
  171. Say "there i hope you now know how to use me."
  172. Say "                               have fun."
  173. Screen 0 : Pen 1
  174. Return